home *** CD-ROM | disk | FTP | other *** search
/ AEMail 2.40 / AEMail v2.40.iso / arexx / aemail_tofront.aem < prev    next >
Text File  |  1999-02-28  |  236b  |  17 lines
  1. /* AEMAIL Screen To Front */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. wwwport = ADDRESS()
  6.  
  7. IF wwwport = "REXX" THEN DO
  8.     wwwport = "IBROWSE"
  9.     END
  10.  
  11. IF SHOW('P', "AEMAIL1") THEN
  12.     ADDRESS AEMAIL1 SCREENTOFRONT AEMAIL
  13.  
  14. ADDRESS VALUE wwwport
  15.  
  16. "QUIT FORCE"
  17.